home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / nevereverloadmeagain < prev    next >
Encoding:
Text File  |  1996-04-29  |  9.5 KB  |  672 lines
  1.  
  2. SFX_NAMES:
  3.  dc.l ScreamName,4400
  4.  dc.l ShootName,7200
  5.  dc.l 0,0
  6. ; dc.l MunchName,5400
  7.  dc.l PooGunName,4600
  8.  dc.l CollectName,3400
  9. ;5
  10.  dc.l DoorNoiseName,8400
  11.  dc.l BassName,8000
  12.  dc.l StompName,4000
  13.  dc.l LowScreamName,8600
  14.  dc.l BaddieGunName,6200
  15. ;10
  16. ; dc.l 0,0
  17.  dc.l SwitchNoiseName,1200
  18.  dc.l ReloadName,4000
  19.  dc.l NoAmmoName,2200
  20.  dc.l SplotchName,3000
  21.  dc.l SplatPopName,5600
  22. ;15 
  23.  dc.l BoomName,11600
  24.  dc.l HissName,7200
  25.  dc.l Howl1Name,7400
  26.  dc.l Howl2Name,9200
  27.  dc.l PantName,5000
  28. ;20
  29.  dc.l WhooshName,4000
  30.  dc.l ShotGunName,8800
  31. ; dc.l 0,0
  32.  dc.l FlameName,9000
  33.  dc.l MuffledName,1800
  34.  dc.l ClopName,3400
  35. ;25 
  36.  dc.l ClankName,1600
  37.  dc.l TeleportName,11000
  38.  dc.l HALFWORMPAINNAME,8400
  39.  dc.l -1
  40.  
  41. ScreamName:    dc.b 'AB3D2:sounds/scream',0
  42.  even
  43. ShootName:    dc.b 'AB3D2:sounds/fire!',0
  44.  even
  45. *
  46. *
  47. PooGunName:    dc.b 'AB3D2:sounds/shoot.dm',0
  48.  even
  49. CollectName:    dc.b 'AB3D2:sounds/collect',0
  50.  even
  51. DoorNoiseName:    dc.b 'AB3D2:sounds/newdoor',0
  52.  even
  53. BassName:    dc.b 'AB3D2:sounds/splash',0
  54.  even
  55. StompName:    dc.b 'AB3D2:sounds/footstep3',0
  56.  even
  57. LowScreamName:    dc.b 'AB3D2:sounds/lowscream',0
  58.  even
  59. BaddieGunName:    dc.b 'AB3D2:sounds/baddiegun',0
  60.  even
  61. SwitchNoiseName:dc.b 'AB3D2:sounds/switch',0
  62.  even
  63. ReloadName:    dc.b 'AB3D2:sounds/switch1.sfx',0
  64.  even
  65. NoAmmoName:    dc.b 'AB3D2:sounds/noammo',0
  66.  even
  67. SplotchName:    dc.b 'AB3D2:sounds/splotch',0
  68.  even
  69. SplatPopName:    dc.b 'AB3D2:sounds/splatpop',0
  70.  even
  71. BoomName:    dc.b 'AB3D2:sounds/boom',0
  72.  even
  73. HissName:    dc.b 'AB3D2:sounds/newhiss',0
  74.  even
  75. Howl1Name:    dc.b 'AB3D2:sounds/howl1',0
  76.  even
  77. Howl2Name:    dc.b 'AB3D2:sounds/howl2',0
  78.  even
  79. PantName:    dc.b 'AB3D2:sounds/pant',0
  80.  even
  81. WhooshName:    dc.b 'AB3D2:sounds/whoosh',0
  82.  even
  83. ShotGunName:    dc.b 'AB3D2:sounds/shotgun',0
  84.  even
  85. FlameName:    dc.b 'AB3D2:sounds/flame',0 
  86.  even
  87. MuffledName:    dc.b 'AB3D2:sounds/MuffledFoot',0
  88.  even
  89. ClopName:    dc.b 'AB3D2:sounds/footclop',0
  90.  even
  91. ClankName:    dc.b 'AB3D2:sounds/footclank',0
  92.  even
  93. TeleportName:    dc.b 'AB3D2:sounds/teleport',0
  94.  even
  95. HALFWORMPAINNAME: dc.b 'AB3D2:sounds/HALFWORMPAIN',0
  96.  even
  97.   
  98. MunchName:    dc.b 'AB3D2:sounds/munch',0
  99.  even
  100. RoarName:    dc.b 'AB3D2:sounds/bigscream',0
  101.  even
  102.  
  103. ;-102
  104. ;7c
  105.  
  106. OBJ_NAMES:
  107.  dc.l wad1n
  108.  dc.l ptr1n
  109.  
  110.  dc.l wad2n
  111.  dc.l ptr2n
  112.  
  113. ; dc.l wad3n
  114. ; dc.l ptr3n
  115.  
  116.  dc.l wad4n
  117.  dc.l ptr4n
  118.  
  119.  dc.l wad5n
  120.  dc.l ptr5n
  121.  
  122.  dc.l wad6n
  123.  dc.l ptr6n
  124.  
  125.  dc.l wad7n
  126.  dc.l ptr7n
  127.  
  128.  dc.l wad8n
  129.  dc.l ptr8n
  130.  
  131.  dc.l wad9n
  132.  dc.l ptr9n
  133.  
  134.  dc.l wadan
  135.  dc.l ptran
  136.  
  137.  dc.l wadbn
  138.  dc.l ptrbn
  139.  
  140.  dc.l wadcn
  141.  dc.l ptrcn
  142.  
  143.  dc.l waddn
  144.  dc.l ptrdn
  145.  
  146.  dc.l waden
  147.  dc.l ptren
  148.  
  149.  dc.l wadfn
  150.  dc.l ptrfn
  151.  
  152.  dc.l wadgn
  153.  dc.l ptrgn
  154.  
  155.  
  156.  dc.l -1,-1
  157.  
  158. wad1n:
  159.  dc.b 'AB3D1:includes/ALIEN2.wad',0
  160.  even
  161. ptr1n:
  162.  dc.b 'AB3D1:includes/ALIEN2.ptr',0
  163.  even
  164. wad2n:
  165.  dc.b 'AB3D1:includes/PICKUPS.wad',0
  166.  even
  167. ptr2n:
  168.  dc.b 'AB3D1:includes/PICKUPS.ptr',0
  169.  even
  170. wad3n:
  171.  dc.b 'AB3D1:includes/uglymonster.wad',0
  172.  even
  173. ptr3n:
  174.  dc.b 'AB3D1:includes/uglymonster.ptr',0
  175.  even
  176. wad4n:
  177.  dc.b 'AB3D1:includes/flyingalien.wad',0
  178.  even
  179. ptr4n:
  180.  dc.b 'AB3D1:includes/flyingalien.ptr',0
  181.  even
  182. wad5n:
  183.  dc.b 'AB3D1:includes/keys.wad',0
  184.  even
  185. ptr5n:
  186.  dc.b 'AB3D1:includes/keys.ptr',0
  187.  even
  188. wad6n:
  189.  dc.b 'AB3D1:includes/rockets.wad',0
  190.  even
  191. ptr6n:
  192.  dc.b 'AB3D1:includes/rockets.ptr',0
  193.  even
  194. wad7n:
  195.  dc.b 'AB3D1:includes/barrel.wad',0
  196.  even
  197. ptr7n:
  198.  dc.b 'AB3D1:includes/barrel.ptr',0
  199.  even
  200. wad8n:
  201.  dc.b 'AB3D1:includes/bigbullet.wad',0
  202.  even
  203. ptr8n:
  204.  dc.b 'AB3D1:includes/bigbullet.ptr',0
  205.  even
  206. wad9n:
  207.  dc.b 'AB3D1:includes/newgunsinhand.wad',0
  208.  even
  209. ptr9n:
  210.  dc.b 'AB3D1:includes/newgunsinhand.ptr',0
  211.  even
  212. wadan:
  213.  dc.b 'AB3D1:includes/newmarine.wad',0
  214.  even
  215. ptran:
  216.  dc.b 'AB3D1:includes/newmarine.ptr',0
  217.  even
  218. wadbn:
  219.  dc.b 'AB3D1:includes/lamps.wad',0
  220.  even
  221. ptrbn:
  222.  dc.b 'AB3D1:includes/lamps.ptr',0
  223.  even
  224. wadcn:
  225.  dc.b 'AB3D1:includes/worm.wad',0
  226.  even
  227. ptrcn:
  228.  dc.b 'AB3D1:includes/worm.ptr',0
  229.  even
  230. waddn:
  231.  dc.b 'AB3D1:includes/explosion.wad',0
  232.  even
  233. ptrdn:
  234.  dc.b 'AB3D1:includes/explosion.ptr',0
  235.  even
  236. waden:
  237.  dc.b 'AB3D1:includes/bigclaws.wad',0
  238.  even
  239. ptren:
  240.  dc.b 'AB3D1:includes/bigclaws.ptr',0
  241.  even
  242. wadfn:
  243.  dc.b 'AB3D1:includes/tree.wad',0
  244.  even
  245. ptrfn:
  246.  dc.b 'AB3D1:includes/tree.ptr',0
  247.  even
  248. wadgn:
  249.  dc.b 'AB3D1:includes/glare.wad',0
  250.  even
  251. ptrgn:
  252.  dc.b 'AB3D1:includes/glare.ptr',0
  253.  even
  254.  
  255. OBJ_ADDRS: ds.l 160
  256.  
  257. blocklen: dc.l 0
  258. blockname: dc.l 0
  259. blockstart: dc.l 0
  260.  
  261. BOTPICNAME: dc.b 'AB3D2:includes/panelraw',0
  262.  even
  263. PanelLen: dc.l 0
  264.  
  265. FREEBOTMEM:
  266.  move.l Panel,d1
  267.  move.l d1,a1
  268.  move.l PanelLen,d0
  269.  move.l 4.w,a6
  270.  jsr -210(a6)
  271.  
  272.  rts
  273.  
  274. LOADBOTPIC:
  275.  
  276.  PRSDb
  277.  
  278.  move.l #BOTPICNAME,blockname
  279.  
  280.  move.l doslib,a6
  281.  move.l blockname,d1
  282.  move.l #1005,d2
  283.  jsr -30(a6)
  284.  move.l d0,handle
  285.  
  286.  lea fib,a5
  287.  move.l handle,d1
  288.  move.l a5,d2
  289.  jsr -390(a6)
  290.  
  291.  move.l $7c(a5),blocklen
  292.  move.l #30720,PanelLen
  293.  
  294.  move.l #2,d1
  295.  move.l 4.w,a6
  296.  move.l PanelLen,d0
  297.  jsr -198(a6)
  298.  move.l d0,blockstart
  299. ; move.l doslib,a6
  300. ; move.l blockname,d1
  301. ; move.l #1005,d2
  302. ; jsr -30(a6)
  303.  move.l doslib,a6
  304. ; move.l d0,handle
  305.  
  306.  move.l handle,d1
  307.  move.l LEVELDATA,d2
  308.  move.l blocklen,d3
  309.  jsr -42(a6)
  310.  move.l doslib,a6
  311.  move.l handle,d1
  312.  jsr -36(a6)
  313.  
  314.  move.l blockstart,Panel
  315.  
  316.  move.l LEVELDATA,d0
  317.  moveq #0,d1
  318.  move.l Panel,a0
  319.  lea WorkSpace,a1
  320.  lea $0,a2
  321.  jsr unLHA
  322.  
  323.  rts
  324.  
  325. LOADOBS:
  326.  
  327.  PRSDG
  328.  
  329.  move.l #OBJ_ADDRS,a2
  330.  move.l LINKFILE,a0
  331.  lea ObjectGfxNames(a0),a0
  332.  
  333.  move.l #Objects,a1
  334.  
  335. LOADMOREOBS:
  336.  move.l a0,a4
  337.  move.l #OBJNAME,a3
  338. fillinname:
  339.  move.b (a4)+,d0
  340.  beq.s donename
  341.  move.b d0,(a3)+
  342.  bra.s fillinname
  343.  
  344. donename:
  345.  move.l a3,DOTPTR
  346.  
  347.  bsr LOAD_AN_OBJ
  348.  move.l blockstart,(a1)
  349.  
  350.  move.l DOTPTR,a3
  351.  move.b #'.',(a3)+
  352.  move.b #'P',(a3)+
  353.  move.b #'T',(a3)+
  354.  move.b #'R',(a3)+
  355.  move.b #0,(a3)+
  356.  
  357.  bsr LOAD_AN_OBJ
  358.  move.l blockstart,4(a1)
  359.  
  360.  add.l #64,a0
  361.  add.l #16,a1
  362.  tst.b (a0)
  363.  bne.s LOADMOREOBS
  364.  
  365.  
  366.  move.l #POLYOBJECTS,a2
  367.  move.l LINKFILE,a0
  368.  add.l #VectorGFXNames,a0
  369.  
  370. LOADMOREVECTORS
  371.  tst.b (a0)
  372.  beq.s NOMOREVECTORS
  373.  
  374.  jsr LOADAFILE
  375.  move.l blockstart,(a2)+
  376.  
  377.  bra.s LOADMOREVECTORS
  378.  
  379. NOMOREVECTORS:
  380.  
  381.  rts
  382.  
  383.  
  384. ;TESTNAME: dc.b 'ab3:includes/TESTOBJ'
  385. ; dc.b 0
  386. ; even
  387.  
  388.  CNOP 0,4
  389. fib: ds.l 75
  390.  
  391. LOAD_AN_OBJ:
  392.  movem.l d0-d7/a0-a6,-(a7)
  393.  
  394.  move.l (a0),blockname
  395.  
  396.  move.l doslib,a6
  397.  move.l blockname,d1
  398.  move.l #1005,d2
  399.  jsr -30(a6)
  400.  move.l d0,handle
  401.  
  402.  lea fib,a5
  403.  move.l handle,d1
  404.  move.l a5,d2
  405.  jsr -390(a6)
  406.  
  407.  move.l $7c(a5),blocklen
  408.  
  409.  move.l #1,d1
  410.  move.l 4.w,a6
  411.  move.l blocklen,d0
  412.  jsr -198(a6)
  413.  move.l d0,blockstart
  414. ; move.l doslib,a6
  415. ; move.l blockname,d1
  416. ; move.l #1005,d2
  417. ; jsr -30(a6)
  418.  move.l doslib,a6
  419. ; move.l d0,handle
  420.  
  421.  move.l handle,d1
  422.  move.l blockstart,d2
  423.  move.l blocklen,d3
  424.  jsr -42(a6)
  425.  move.l doslib,a6
  426.  move.l handle,d1
  427.  jsr -36(a6)
  428.  
  429.  movem.l (a7)+,d0-d7/a0-a6
  430.  
  431.  move.l blockstart,(a2)+
  432.  move.l blocklen,(a2)+
  433.  
  434.  rts
  435.  
  436. RELEASEOBJMEM:
  437.  
  438.  
  439.  move.l #OBJ_NAMES,a0
  440.  move.l #OBJ_ADDRS,a2
  441.  
  442. relobjlop
  443.  move.l (a2)+,blockstart
  444.  move.l (a2)+,blocklen
  445.  addq #8,a0
  446.  tst.l blockstart
  447.  ble.s nomoreovj
  448.  
  449.  movem.l a0/a2,-(a7)
  450.  
  451.  move.l blockstart,d1
  452.  move.l d1,a1
  453.  move.l blocklen,d0
  454.  move.l 4.w,a6
  455.  jsr -210(a6)
  456.  
  457.  movem.l (a7)+,a0/a2
  458.  bra.s relobjlop
  459.  
  460. nomoreovj:
  461.  
  462.  rts
  463.  
  464.  
  465.  
  466.  
  467. LOAD_SFX:
  468.  
  469.  move.l LINKFILE,a0
  470.  lea SFXFilenames(a0),a0
  471.  
  472.  move.l #SampleList,a1
  473.  
  474.  move.w #58,d7
  475.  
  476. LOADSAMPS:
  477.  tst.b (a0)
  478.  bne.s oktoload
  479.  
  480.  addq #64,a0
  481.  addq #8,a1
  482.  dbra d7,LOADSAMPS
  483.  move.l #-1,(a1)+
  484.  rts
  485.  
  486. oktoload:
  487.  
  488.  jsr LOADAFILE
  489.  move.l d0,(a1)+
  490.  add.l d1,d0
  491.  move.l d0,(a1)+
  492.  add.w #64,a0
  493.  dbra d7,LOADSAMPS
  494.  rts
  495.  
  496.  
  497.  PRSDJ
  498.  
  499. ; move.l #SFX_NAMES,a0
  500. ; move.l #SampleList,a1
  501. ;LOADSAMPS
  502. ; move.l (a0)+,a2
  503. ; move.l a2,d0
  504. ; tst.l d0
  505. ; bgt.s oktoload
  506. ; blt.s doneload
  507. ;
  508. ; addq #4,a0
  509. ; addq #8,a1
  510. ; bra LOADSAMPS
  511. ;
  512. ;doneload:
  513. ; 
  514. ; move.l #-1,(a1)+
  515. ; rts
  516. ;oktoload:
  517. ; move.l (a0)+,blocklen
  518. ; move.l a2,blockname
  519. ; movem.l a0/a1,-(a7)
  520. ; move.l #2,d1
  521. ; move.l 4.w,a6
  522. ; move.l blocklen,d0
  523. ; jsr -198(a6)
  524. ; move.l d0,blockstart
  525.  ;move.l doslib,a6
  526.  ;move.l blockname,d1
  527.  ;move.l #1005,d2
  528. ; jsr -30(a6)
  529. ; move.l doslib,a6
  530. ; move.l d0,handle
  531. ; move.l d0,d1
  532.  ;move.l blockstart,d2
  533. ; move.l blocklen,d3
  534. ; jsr -42(a6)
  535. ; move.l doslib,a6
  536. ; move.l handle,d1
  537. ; jsr -36(a6)
  538. ; movem.l (a7)+,a0/a1
  539. ; move.l blockstart,d0
  540. ; move.l d0,(a1)+
  541. ; add.l blocklen,d0
  542. ; move.l d0,(a1)+
  543. ; bra LOADSAMPS
  544. ; 
  545.  
  546.  
  547. LOADFLOOR
  548.  PRSDK
  549. ; move.l #65536,d0
  550. ; move.l #1,d1
  551. ; move.l 4.w,a6
  552. ; jsr -198(a6)
  553. ; move.l d0,floortile
  554. ;
  555. ; move.l #floortilename,d1
  556. ; move.l #1005,d2
  557. ; move.l doslib,a6
  558. ; jsr -30(a6)
  559. ; move.l doslib,a6
  560. ; move.l d0,handle
  561. ; move.l d0,d1
  562. ; move.l floortile,d2
  563. ; move.l #65536,d3
  564. ; jsr -42(a6)
  565. ; move.l doslib,a6
  566. ; move.l handle,d1
  567. ; jsr -36(a6)
  568.  
  569.  move.l #floortilename,a0
  570.  
  571.  jsr LOADAFILE
  572.  move.l blockstart,floortile
  573.  
  574.  move.l LINKFILE,a0
  575.  add.l #TextureFilename,a0
  576.  move.l #BUFFE,a1
  577.  
  578. .copy:
  579.  move.b (a0)+,(a1)+
  580.  beq.s .copied
  581.  bra.s .copy
  582. .copied:
  583.  
  584.  subq #1,a1
  585.  move.l a1,dotty
  586.  
  587.  move.l #BUFFE,a0
  588.  jsr LOADAFILE
  589.  move.l blockstart,TextureMaps
  590.  
  591.  move.l dotty,a1
  592.  move.l #".pal",(a1)
  593.  
  594.  move.l #BUFFE,a0
  595.  jsr LOADAFILE
  596.  move.l blockstart,TexturePal
  597.  
  598.  rts
  599.  
  600. dotty: dc.l 0
  601. BUFFE: ds.b 80
  602.  
  603. floortilename:
  604.  dc.b 'AB3D1:includes/floortile'
  605.  dc.b 0
  606.  
  607.  even
  608.  
  609. RELEASESAMPMEM:
  610.  move.l #SampleList,a0
  611. .relmem:
  612.  move.l (a0)+,d1
  613.  bge.s .okrel
  614.  rts
  615. .okrel:
  616.  move.l (a0)+,d0
  617.  sub.l d1,d0
  618.  move.l d1,a1
  619.  move.l 4.w,a6
  620.  move.l a0,-(a7)
  621.  jsr -210(a6)
  622.  move.l (a7)+,a0
  623.  bra .relmem
  624.  
  625. RELEASELEVELMEM:
  626.  
  627.  move.l TRUELEVELGRAPHICS,d1
  628.  move.l d1,a1
  629.  move.l #50000,d0
  630.  move.l 4.w,a6
  631.  jsr -210(a6)
  632.  
  633.  move.l LEVELCLIPS,d1
  634.  move.l d1,a1
  635.  move.l #40000,d0
  636.  move.l 4.w,a6
  637.  jsr -210(a6)
  638.  rts
  639.  
  640. RELEASEFLOORMEM:
  641.  
  642.  move.l floortile,d1
  643.  move.l d1,a1
  644.  move.l #65536,d0
  645.  move.l 4.w,a6
  646.  jsr -210(a6)
  647.  rts
  648.  
  649. COPSCRN1: dc.l 0
  650. COPSCRN2: dc.l 0
  651.  
  652. RELEASESCRNMEM:
  653.  move.l COPSCRN1,d1
  654.  move.l d1,a1
  655.  move.l #(104*80*4)+16,d0
  656.  move.l 4.w,a6
  657.  jsr -210(a6)
  658.  move.l COPSCRN2,d1
  659.  move.l d1,a1
  660.  move.l #(104*80*4)+16,d0
  661.  move.l 4.w,a6
  662.  jsr -210(a6)
  663. ; move.l COPSCRNBUFF,d1
  664. ; move.l d1,a1
  665. ; move.l #(104*80*4)+16,d0
  666. ; move.l 4.w,a6
  667. ; jsr -210(a6)
  668.  
  669.  rts 
  670.  
  671. unLHA:    incbin    "ab3:Decomp4.raw"
  672.